home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / GNU-SMALLTALK.lha / diffs.rexx! < prev    next >
Text File  |  1992-06-10  |  2KB  |  41 lines
  1. /* this is a diff program for smalltalk 1.2 */ 
  2.  
  3. files = "mstsave.c IdentityDictionary.st mstsave.h initialize.st
  4.  mststr.c Integer.st mststr.h Interval.st mstsym.c IOCtl.st mstsym.h
  5.  alloc.c Link.st mstsysdep.c alloca.c LinkedList.st mstsysdep.h
  6.  alloca.s LookupKey.st msttree.c Array.st Magnitude.st msttree.h
  7.  ArrayedCollection.st Makefile Number.st Association.st
  8.  MappedCollection.st Object.st Autoload.st Memory.st
  9.  OrderedCollection.st Bag.st Message.st Point.st Behavior.st
  10.  Metaclass.st PositionableStream.st bison.el MethodContext.st
  11.  BlockContext.st MethodInfo.st Process.st Boolean.st
  12.  ProcessorScheduler.st browse.el mst.h Random.st
  13.  Browser.st mst.tab.c builtins.st mst.tab.h ByteArray.st mst.texinfo
  14.  ReadStream.st ByteMemory.st mst.y ReadWriteStream.st CFuncs.st
  15.  mstbyte.c Rectangle.st mstbyte.h Semaphore.st changes.st mstcallin.c
  16.  SequenceableCollection.st Character.st mstcallin.h Set.st Class.st
  17.  mstcint.c SharedQueue.st ClassDescription.st mstcint.h
  18.  SortedCollection.st CObject.st mstcomp.c st-changelog.el Collection.st
  19.  mstcomp.h st.el CompiledMethod.st mstdict.c Stream.st config.mst
  20.  mstdict.h String.st mstfiles Symbol.st CStruct.st mstid.c
  21.  SymLink.st CType.st mstid.h SystemDictionary.st Date.st mstinterp.c
  22.  t.st Debugger.st mstinterp.h Delay.st mstlex.c Time.st
  23.  Dictionary.st mstlex.h TokenStream.st DLD.st mstlib.c True.st False.st
  24.  mstlib.h UndefinedObject.st fileout-ps.st mstmain.c UnixStream.st 
  25.  FileSegment.st mstoop.c WordMemory.st FileStream.st mstoop.h
  26.  WriteStream.st Float.st mstpaths.h-dist ymakefile Fraction.st
  27.  mstpub.h"
  28.  
  29. numfiles = words(files)
  30.  
  31. call open out,"t:diff_temp",write
  32.  
  33. do i=1 to numfiles
  34.         say 'diff' "-c" word(files,i) "smalltalk-1.2/"word(files,i)" >t:"smtk_diff"
  35.         call writeln out,'diff' "-c" word(files,i) "smalltalk-1.2/"word(files,i)" >>t:smtk_diff"
  36.  
  37. end
  38.  
  39. call close out
  40.  
  41.